Celestin Apprentice 2

home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Mops 2.5 / Mops source.sit / Mops source / Toolbox classes / Ctl < prev next >
MacBinary | 1994-08-21 | 11.5 KB | [TEXT/MSET]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Ctl
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Aug 21 17:51:23 1994, modified Sun Aug 21 17:51:23 1994, creator 'MSET', type ASCII, 11188 bytes "Ctl" , at 0x2c34 375 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`0%`	TrID	Sybase iAnywhere database files	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MSET]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 03 43 74 6c 00 00 00 | 00 00 00 00 00 00 00 00 |..Ctl...|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 2b b4 00 | 00 01 77 aa 7d 7c db aa |.....+..|..w.}|..|
|00000060| 7d 7c db 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |}|......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 12 35 00 00 |........|.....5..|
|00000080| 5c 20 43 6f 6e 74 72 6f | 6c 20 73 75 70 70 6f 72 |\ Contro|l suppor|
|00000090| 74 2e 20 20 4d 6f 70 73 | 20 76 65 72 73 69 6f 6e |t.  Mops| version|
|000000a0| 2e 0d 5c 20 4e 6f 76 20 | 39 30 09 09 41 64 64 65 |..\ Nov |90..Adde|
|000000b0| 64 20 42 6f 62 20 4c 6f | 65 77 65 6e 73 74 65 69 |d Bob Lo|ewenstei|
|000000c0| 6e 27 73 20 69 6d 70 72 | 6f 76 65 6d 65 6e 74 73 |n's impr|ovements|
|000000d0| 0d 5c 20 4e 6f 76 20 39 | 31 09 09 43 6f 6e 74 72 |.\ Nov 9|1..Contr|
|000000e0| 6f 6c 73 20 6e 6f 77 20 | 6f 77 6e 65 64 20 62 79 |ols now |owned by|
|000000f0| 20 76 69 65 77 73 2c 20 | 6e 6f 74 20 77 69 6e 64 | views, |not wind|
|00000100| 6f 77 73 0d 5c 20 4d 61 | 79 20 39 32 09 09 22 4e |ows.\ Ma|y 92.."N|
|00000110| 65 77 2d 73 74 79 6c 65 | 22 20 63 6f 6e 74 72 6f |ew-style|" contro|
|00000120| 6c 73 0d 5c 20 53 65 70 | 74 20 39 33 09 6d 72 68 |ls.\ Sep|t 93.mrh|
|00000130| 09 43 6f 6e 74 72 6f 6c | 73 20 61 72 65 20 6e 6f |.Control|s are no|
|00000140| 77 20 76 69 65 77 73 0d | 0d 6e 65 65 64 09 76 69 |w views.|.need.vi|
|00000150| 65 77 0d 0d 5c 20 57 69 | 74 68 20 4d 6f 70 73 20 |ew..\ Wi|th Mops |
|00000160| 32 2e 34 20 77 65 20 61 | 72 65 20 63 68 61 6e 67 |2.4 we a|re chang|
|00000170| 69 6e 67 20 63 6f 6e 74 | 72 6f 6c 73 20 79 65 74 |ing cont|rols yet|
|00000180| 20 61 67 61 69 6e 20 2d | 20 61 6c 74 68 6f 75 67 | again -| althoug|
|00000190| 68 20 68 6f 70 65 66 75 | 6c 6c 79 0d 5c 20 77 69 |h hopefu|lly.\ wi|
|000001a0| 74 68 6f 75 74 20 61 66 | 66 65 63 74 69 6e 67 20 |thout af|fecting |
|000001b0| 65 78 69 73 74 69 6e 67 | 20 63 6f 64 65 20 28 6d |existing| code (m|
|000001c0| 75 63 68 29 2e 0d 0d 5c | 20 41 20 63 6f 6e 74 72 |uch)...\| A contr|
|000001d0| 6f 6c 20 69 73 20 6e 6f | 77 20 61 20 73 75 62 63 |ol is no|w a subc|
|000001e0| 6c 61 73 73 20 6f 66 20 | 76 69 65 77 2e 20 20 49 |lass of |view.  I|
|000001f0| 6e 20 6f 74 68 65 72 20 | 72 65 73 70 65 63 74 73 |n other |respects|
|00000200| 20 69 74 20 69 73 20 6d | 6f 72 65 20 6f 72 20 6c | it is m|ore or l|
|00000210| 65 73 73 0d 5c 20 77 68 | 61 74 20 54 69 74 6c 65 |ess.\ wh|at Title|
|00000220| 64 43 74 6c 20 77 61 73 | 20 69 6e 20 4d 6f 70 73 |dCtl was| in Mops|
|00000230| 20 32 2e 33 2e 20 20 54 | 68 69 73 20 6d 65 61 6e | 2.3.  T|his mean|
|00000240| 73 20 74 68 61 74 20 74 | 68 65 20 6f 72 69 67 69 |s that t|he origi|
|00000250| 6e 61 6c 20 43 6f 6e 74 | 72 6f 6c 20 63 6c 61 73 |nal Cont|rol clas|
|00000260| 73 0d 5c 20 68 61 73 20 | 6e 6f 77 20 67 6f 6e 65 |s.\ has |now gone|
|00000270| 20 66 6f 72 20 67 6f 6f | 64 20 2d 20 49 20 68 6f | for goo|d - I ho|
|00000280| 70 65 20 65 76 65 72 79 | 6f 6e 65 20 68 61 73 20 |pe every|one has |
|00000290| 61 6c 72 65 61 64 79 20 | 63 68 61 6e 67 65 64 20 |already |changed |
|000002a0| 6f 76 65 72 20 74 6f 20 | 74 68 65 0d 5c 20 6e 65 |over to |the.\ ne|
|000002b0| 77 20 73 63 68 65 6d 65 | 2c 20 73 69 6e 63 65 20 |w scheme|, since |
|000002c0| 68 61 72 64 6c 79 20 61 | 6e 79 20 63 68 61 6e 67 |hardly a|ny chang|
|000002d0| 65 73 20 77 69 6c 6c 20 | 62 65 20 6e 65 65 64 65 |es will |be neede|
|000002e0| 64 2e 20 20 54 68 65 20 | 6d 61 69 6e 20 63 68 61 |d.  The |main cha|
|000002f0| 6e 67 65 0d 5c 20 69 73 | 20 74 68 61 74 20 6e 6f |nge.\ is| that no|
|00000300| 77 20 77 65 20 64 6f 6e | 27 74 20 73 65 74 20 74 |w we don|'t set t|
|00000310| 68 65 20 76 69 65 77 52 | 65 63 74 20 64 69 72 65 |he viewR|ect dire|
|00000320| 63 74 6c 79 20 2d 20 6d | 65 74 68 6f 64 20 53 65 |ctly - m|ethod Se|
|00000330| 74 56 69 65 77 52 65 63 | 74 3a 0d 5c 20 64 6f 65 |tViewRec|t:.\ doe|
|00000340| 73 6e 27 74 20 65 76 65 | 6e 20 65 78 69 73 74 20 |sn't eve|n exist |
|00000350| 61 6e 79 20 6c 6f 6e 67 | 65 72 2e 20 20 49 6e 73 |any long|er.  Ins|
|00000360| 74 65 61 64 20 79 6f 75 | 20 75 73 65 20 73 65 74 |tead you| use set|
|00000370| 42 6f 75 6e 64 73 3a 20 | 61 6e 64 20 73 65 74 4a |Bounds: |and setJ|
|00000380| 75 73 74 3a 2e 0d 5c 20 | 53 65 65 20 74 68 65 20 |ust:..\ |See the |
|00000390| 63 6f 6d 6d 65 6e 74 73 | 20 69 6e 20 66 69 6c 65 |comments| in file|
|000003a0| 20 56 69 65 77 2e 0d 0d | 5c 20 57 65 20 61 6c 77 | View...|\ We alw|
|000003b0| 61 79 73 20 6e 65 65 64 | 20 74 6f 20 72 65 66 65 |ays need| to refe|
|000003c0| 72 20 74 6f 20 63 6f 6e | 74 72 6f 6c 73 20 77 69 |r to con|trols wi|
|000003d0| 74 68 20 61 20 47 72 61 | 66 50 6f 72 74 2d 72 65 |th a Gra|fPort-re|
|000003e0| 6c 61 74 69 76 65 20 63 | 6f 6f 72 64 69 6e 61 74 |lative c|oordinat|
|000003f0| 65 0d 5c 20 6f 72 69 67 | 69 6e 2e 20 20 54 68 69 |e.\ orig|in.  Thi|
|00000400| 73 20 69 73 20 62 65 63 | 61 75 73 65 20 74 68 65 |s is bec|ause the|
|00000410| 20 73 79 73 74 65 6d 20 | 6b 65 65 70 73 20 61 20 | system |keeps a |
|00000420| 63 6f 70 79 20 6f 66 20 | 74 68 65 20 63 6f 6e 74 |copy of |the cont|
|00000430| 72 6f 6c 73 20 52 65 63 | 74 0d 5c 20 69 6e 20 69 |rols Rec|t.\ in i|
|00000440| 74 73 20 6f 77 6e 20 64 | 61 74 61 20 73 74 72 75 |ts own d|ata stru|
|00000450| 63 74 75 72 65 20 28 77 | 68 69 63 68 20 74 68 65 |cture (w|hich the|
|00000460| 20 63 6f 6e 74 72 6f 6c | 20 68 61 6e 64 6c 65 20 | control| handle |
|00000470| 70 6f 69 6e 74 73 20 74 | 6f 29 2c 20 61 6e 64 20 |points t|o), and |
|00000480| 75 73 65 73 0d 5c 20 74 | 68 69 73 20 69 6e 20 46 |uses.\ t|his in F|
|00000490| 69 6e 64 43 6f 6e 74 72 | 6f 6c 2e 20 20 54 68 75 |indContr|ol.  Thu|
|000004a0| 73 20 69 6e 20 6f 75 72 | 20 44 52 41 57 3a 20 6d |s in our| DRAW: m|
|000004b0| 65 74 68 6f 64 20 68 65 | 72 65 20 77 65 20 68 61 |ethod he|re we ha|
|000004c0| 76 65 20 74 6f 20 72 65 | 73 65 74 20 74 68 65 0d |ve to re|set the.|
|000004d0| 5c 20 6f 72 69 67 69 6e | 20 28 74 68 65 20 43 61 |\ origin| (the Ca|
|000004e0| 6c 6c 46 69 72 73 74 20 | 63 6f 64 65 20 77 69 6c |llFirst |code wil|
|000004f0| 6c 20 68 61 76 65 20 73 | 65 74 20 69 74 20 73 6f |l have s|et it so|
|00000500| 20 74 68 65 20 74 6f 70 | 20 6c 65 66 74 20 6f 66 | the top| left of|
|00000510| 20 74 68 65 20 76 69 65 | 77 52 65 63 74 0d 5c 20 | the vie|wRect.\ |
|00000520| 69 73 20 28 30 2c 20 30 | 29 2c 20 77 68 69 63 68 |is (0, 0|), which|
|00000530| 20 77 65 20 75 73 75 61 | 6c 6c 79 20 77 61 6e 74 | we usua|lly want|
|00000540| 20 66 6f 72 20 76 69 65 | 77 73 2c 20 62 75 74 20 | for vie|ws, but |
|00000550| 6e 6f 74 20 68 65 72 65 | 29 2e 0d 0d 5c 20 63 6f |not here|)...\ co|
|00000560| 6e 74 72 6f 6c 20 74 79 | 70 65 73 3a 0d 0d 20 20 |ntrol ty|pes:..  |
|00000570| 20 20 30 09 63 6f 6e 73 | 74 61 6e 74 09 42 55 54 |  0.cons|tant.BUT|
|00000580| 54 4f 4e 49 44 0d 20 20 | 20 20 31 09 63 6f 6e 73 |TONID.  |  1.cons|
|00000590| 74 61 6e 74 09 43 48 45 | 43 4b 49 44 0d 20 20 20 |tant.CHE|CKID.   |
|000005a0| 20 32 09 63 6f 6e 73 74 | 61 6e 74 09 52 41 44 49 | 2.const|ant.RADI|
|000005b0| 4f 49 44 0d 20 20 20 31 | 36 09 63 6f 6e 73 74 61 |OID.   1|6.consta|
|000005c0| 6e 74 09 56 53 49 44 0d | 0d 5c 20 63 6f 6e 74 72 |nt.VSID.|.\ contr|
|000005d0| 6f 6c 20 70 61 72 74 20 | 63 6f 64 65 73 3a 0d 0d |ol part |codes:..|
|000005e0| 20 20 31 30 09 63 6f 6e | 73 74 61 6e 74 20 20 49 |  10.con|stant  I|
|000005f0| 4e 42 55 54 54 4f 4e 09 | 09 09 5c 20 73 69 6d 70 |NBUTTON.|..\ simp|
|00000600| 6c 65 20 62 75 74 74 6f | 6e 0d 20 20 31 31 09 63 |le butto|n.  11.c|
|00000610| 6f 6e 73 74 61 6e 74 20 | 20 49 4e 43 48 45 43 4b |onstant | INCHECK|
|00000620| 42 4f 58 09 09 5c 20 63 | 68 65 63 6b 20 62 6f 78 |BOX..\ c|heck box|
|00000630| 20 6f 72 20 72 61 64 69 | 6f 20 62 75 74 74 6f 6e | or radi|o button|
|00000640| 0d 20 31 32 39 09 63 6f | 6e 73 74 61 6e 74 20 20 |. 129.co|nstant  |
|00000650| 49 4e 54 48 55 4d 42 0d | 20 20 32 30 09 63 6f 6e |INTHUMB.|  20.con|
|00000660| 73 74 61 6e 74 20 20 49 | 4e 55 50 42 55 54 54 4f |stant  I|NUPBUTTO|
|00000670| 4e 09 09 5c 20 75 70 20 | 61 72 72 6f 77 20 69 6e |N..\ up |arrow in|
|00000680| 20 73 63 72 6f 6c 6c 20 | 62 61 72 0d 20 20 32 31 | scroll |bar.  21|
|00000690| 09 63 6f 6e 73 74 61 6e | 74 20 20 49 4e 44 4f 57 |.constan|t  INDOW|
|000006a0| 4e 42 55 54 54 4f 4e 09 | 09 5c 20 64 6f 77 6e 20 |NBUTTON.|.\ down |
|000006b0| 61 72 72 6f 77 0d 20 20 | 32 32 09 63 6f 6e 73 74 |arrow.  |22.const|
|000006c0| 61 6e 74 20 20 49 4e 50 | 41 47 45 55 50 0d 20 20 |ant  INP|AGEUP.  |
|000006d0| 32 33 09 63 6f 6e 73 74 | 61 6e 74 20 20 49 4e 50 |23.const|ant  INP|
|000006e0| 41 47 45 44 4f 57 4e 0d | 0d 0d 20 20 20 38 09 63 |AGEDOWN.|..   8.c|
|000006f0| 6f 6e 73 74 61 6e 74 20 | 20 55 53 45 57 46 4f 4e |onstant | USEWFON|
|00000700| 54 09 09 5c 20 41 64 64 | 20 74 6f 20 49 44 20 69 |T..\ Add| to ID i|
|00000710| 66 20 74 69 74 6c 65 20 | 69 6e 20 61 70 70 6c 69 |f title |in appli|
|00000720| 63 61 74 69 6f 6e 20 66 | 6f 6e 74 0d 0d 76 61 72 |cation f|ont..var|
|00000730| 69 61 62 6c 65 09 54 68 | 65 43 54 4c 09 09 09 5c |iable.Th|eCTL...\|
|00000740| 20 75 73 65 64 20 66 6f | 72 20 46 69 6e 64 43 6f | used fo|r FindCo|
|00000750| 6e 74 72 6f 6c 20 63 61 | 6c 6c 0d 0d 30 09 76 61 |ntrol ca|ll..0.va|
|00000760| 6c 75 65 09 54 68 69 73 | 43 54 4c 09 09 09 5c 20 |lue.This|CTL...\ |
|00000770| 68 6f 6c 64 73 20 61 64 | 64 72 20 6f 66 20 63 6f |holds ad|dr of co|
|00000780| 6e 74 72 6f 6c 20 6a 75 | 73 74 20 63 6c 69 63 6b |ntrol ju|st click|
|00000790| 65 64 20 6f 6e 0d 0d 0d | 3a 20 54 57 49 44 54 48 |ed on...|: TWIDTH|
|000007a0| 09 5c 20 28 20 61 64 64 | 72 20 6c 65 6e 20 2d 2d |.\ ( add|r len --|
|000007b0| 20 77 69 64 74 68 20 29 | 0d 09 09 09 5c 20 52 65 | width )|....\ Re|
|000007c0| 74 75 72 6e 73 20 77 69 | 64 74 68 20 6f 66 20 73 |turns wi|dth of s|
|000007d0| 74 72 69 6e 67 20 69 6e | 20 63 75 72 72 65 6e 74 |tring in| current|
|000007e0| 20 66 6f 6e 74 0d 09 73 | 74 72 32 35 35 20 3e 72 | font..s|tr255 >r|
|000007f0| 20 20 77 6f 72 64 30 20 | 20 72 3e 20 20 63 61 6c |  word0 | r>  cal|
|00000800| 6c 20 53 74 72 69 6e 67 | 57 69 64 74 68 20 20 77 |l String|Width  w|
|00000810| 6f 72 64 30 20 20 3b 0d | 0d 0d 5c 20 43 74 6c 50 |ord0  ;.|..\ CtlP|
|00000820| 72 6f 63 20 69 73 20 74 | 68 65 20 70 72 6f 63 65 |roc is t|he proce|
|00000830| 64 75 72 65 20 74 6f 20 | 62 65 20 65 78 65 63 75 |dure to |be execu|
|00000840| 74 65 64 20 77 68 65 6e | 20 61 20 63 6f 6e 74 72 |ted when| a contr|
|00000850| 6f 6c 20 69 73 20 62 65 | 69 6e 67 20 74 72 61 63 |ol is be|ing trac|
|00000860| 6b 65 64 2e 0d 5c 20 4f | 75 72 20 43 4c 49 43 4b |ked..\ O|ur CLICK|
|00000870| 3a 20 6d 65 74 68 6f 64 | 20 77 69 6c 6c 20 68 61 |: method| will ha|
|00000880| 76 65 20 70 75 74 20 74 | 68 65 20 63 6f 6e 74 72 |ve put t|he contr|
|00000890| 6f 6c 20 6f 62 6a 65 63 | 74 27 73 20 61 64 64 72 |ol objec|t's addr|
|000008a0| 20 69 6e 20 74 68 69 73 | 43 74 6c 2e 0d 5c 20 54 | in this|Ctl..\ T|
|000008b0| 68 65 20 73 79 73 74 65 | 6d 20 70 61 73 73 65 73 |he syste|m passes|
|000008c0| 20 75 73 20 74 68 65 20 | 63 6f 6e 74 72 6f 6c 20 | us the |control |
|000008d0| 68 61 6e 64 6c 65 2c 20 | 62 75 74 20 77 68 61 74 |handle, |but what|
|000008e0| 20 77 65 20 72 65 61 6c | 6c 79 20 6e 65 65 64 20 | we real|ly need |
|000008f0| 69 73 20 74 68 65 0d 5c | 20 6f 62 6a 65 63 74 27 |is the.\| object'|
|00000900| 73 20 61 64 64 72 20 73 | 6f 20 77 65 20 6a 75 73 |s addr s|o we jus|
|00000910| 74 20 4e 49 50 20 74 68 | 65 20 68 61 6e 64 6c 65 |t NIP th|e handle|
|00000920| 2e 0d 0d 3a 20 43 74 6c | 45 58 45 43 09 09 5c 20 |...: Ctl|EXEC..\ |
|00000930| 28 20 70 61 72 74 23 20 | 2d 2d 20 29 0d 09 65 78 |( part# |-- )..ex|
|00000940| 65 63 3a 20 74 68 69 73 | 43 74 6c 20 20 3b 0d 0d |ec: this|Ctl  ;..|
|00000950| 3a 70 72 6f 63 20 43 74 | 6c 50 52 4f 43 09 09 5c |:proc Ct|lPROC..\|
|00000960| 20 20 28 20 5e 63 74 6c | 20 69 6e 74 3a 70 61 72 |  ( ^ctl| int:par|
|00000970| 74 20 2d 2d 20 29 0d 09 | 77 6f 72 64 30 20 20 6e |t -- )..|word0  n|
|00000980| 69 70 20 20 63 74 6c 45 | 78 65 63 20 20 3b 70 72 |ip  ctlE|xec  ;pr|
|00000990| 6f 63 0d 0d 0d 5c 09 09 | 09 3d 3d 3d 3d 3d 3d 3d |oc...\..|.=======|
|000009a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000009b0| 0d 5c 20 43 6f 6e 74 72 | 6f 6c 20 69 73 20 74 68 |.\ Contr|ol is th|
|000009c0| 65 20 62 61 73 69 63 20 | 63 6f 6e 74 72 6f 6c 20 |e basic |control |
|000009d0| 63 6c 61 73 73 2e 0d 0d | 3a 63 6c 61 73 73 09 43 |class...|:class.C|
|000009e0| 4f 4e 54 52 4f 4c 09 20 | 20 73 75 70 65 72 7b 20 |ONTROL. | super{ |
|000009f0| 76 69 65 77 20 7d 0d 72 | 65 63 6f 72 64 0d 7b 09 |view }.r|ecord.{.|
|00000a00| 69 6e 74 09 09 09 50 52 | 4f 43 49 44 0d 09 69 6e |int...PR|OCID..in|
|00000a10| 74 09 09 09 52 45 53 49 | 44 0d 09 68 61 6e 64 6c |t...RESI|D..handl|
|00000a20| 65 09 09 43 54 4c 48 4e | 44 4c 0d 09 69 6e 74 09 |e..CTLHN|DL..int.|
|00000a30| 09 09 4d 79 56 41 4c 55 | 45 0d 09 69 6e 74 09 09 |..MyVALU|E..int..|
|00000a40| 09 54 69 74 6c 65 4c 65 | 6e 0d 33 32 09 62 79 74 |.TitleLe|n.32.byt|
|00000a50| 65 73 09 09 54 49 54 4c | 45 0d 7d 0d 0d 3a 6d 20 |es..TITL|E.}..:m |
|00000a60| 50 55 54 52 45 53 49 44 | 3a 09 5c 20 28 20 72 65 |PUTRESID|:.\ ( re|
|00000a70| 73 49 44 20 2d 2d 20 29 | 0d 09 70 75 74 3a 20 72 |sID -- )|..put: r|
|00000a80| 65 73 49 44 20 20 20 3b | 6d 20 0d 0d 3a 6d 20 48 |esID   ;|m ..:m H|
|00000a90| 41 4e 44 4c 45 3a 09 5c | 20 28 20 2d 2d 20 63 74 |ANDLE:.\| ( -- ct|
|00000aa0| 6c 68 6e 64 6c 20 29 0d | 09 67 65 74 3a 20 63 74 |lhndl ).|.get: ct|
|00000ab0| 6c 48 6e 64 6c 20 20 3b | 6d 20 0d 0d 3a 6d 20 45 |lHndl  ;|m ..:m E|
|00000ac0| 58 45 43 3a 09 5c 20 28 | 20 70 61 72 74 23 20 2d |XEC:.\ (| part# -|
|00000ad0| 2d 20 29 20 20 70 65 72 | 66 6f 72 6d 73 20 61 63 |- )  per|forms ac|
|00000ae0| 74 69 6f 6e 20 66 6f 72 | 20 63 6f 6e 74 72 6f 6c |tion for| control|
|00000af0| 0d 09 49 46 20 20 65 78 | 65 63 3a 20 63 6c 69 63 |..IF  ex|ec: clic|
|00000b00| 6b 48 6e 64 6c 72 20 20 | 54 48 45 4e 20 20 3b 6d |kHndlr  |THEN  ;m|
|00000b10| 20 0d 0d 3a 6d 20 48 49 | 44 45 3a 09 67 65 74 3a | ..:m HI|DE:.get:|
|00000b20| 20 43 74 6c 68 6e 64 6c | 20 20 63 61 6c 6c 20 48 | Ctlhndl|  call H|
|00000b30| 69 64 65 43 6f 6e 74 72 | 6f 6c 20 20 3b 6d 20 0d |ideContr|ol  ;m .|
|00000b40| 0d 3a 6d 20 53 48 4f 57 | 3a 09 67 65 74 3a 20 43 |.:m SHOW|:.get: C|
|00000b50| 74 6c 68 6e 64 6c 20 20 | 63 61 6c 6c 20 53 68 6f |tlhndl  |call Sho|
|00000b60| 77 43 6f 6e 74 72 6f 6c | 20 20 3b 6d 20 0d 0d 0d |wControl|  ;m ...|
|00000b70| 3a 6d 20 50 55 54 3a 20 | 20 7b 20 74 68 65 56 61 |:m PUT: | { theVa|
|00000b80| 6c 20 2d 2d 20 7d 09 5c | 20 53 65 74 73 20 74 68 |l -- }.\| Sets th|
|00000b90| 65 20 63 74 6c 20 76 61 | 6c 75 65 2e 0d 09 67 65 |e ctl va|lue...ge|
|00000ba0| 74 3a 20 61 6c 69 76 65 | 3f 0d 09 49 46 09 61 64 |t: alive|?..IF.ad|
|00000bb0| 64 72 3a 20 76 69 65 77 | 52 65 63 74 20 20 63 61 |dr: view|Rect  ca|
|00000bc0| 6c 6c 20 43 6c 69 70 52 | 65 63 74 0d 09 09 74 68 |ll ClipR|ect...th|
|00000bd0| 65 56 61 6c 20 20 67 65 | 74 3a 20 63 74 6c 48 6e |eVal  ge|t: ctlHn|
|00000be0| 64 6c 20 20 73 77 61 70 | 20 6d 61 6b 65 69 6e 74 |dl  swap| makeint|
|00000bf0| 20 20 63 61 6c 6c 20 53 | 65 74 43 74 6c 56 61 6c |  call S|etCtlVal|
|00000c00| 75 65 0d 09 54 48 45 4e | 0d 09 74 68 65 56 61 6c |ue..THEN|..theVal|
|00000c10| 20 20 70 75 74 3a 20 6d | 79 56 61 6c 75 65 20 20 |  put: m|yValue  |
|00000c20| 3b 6d 20 0d 0d 3a 6d 20 | 47 45 54 3a 09 09 5c 20 |;m ..:m |GET:..\ |
|00000c30| 28 20 2d 2d 20 76 61 6c | 20 29 20 20 53 6f 6d 65 |( -- val| )  Some|
|00000c40| 20 63 74 6c 73 20 6d 61 | 79 20 6e 65 65 64 20 6f | ctls ma|y need o|
|00000c50| 72 69 67 69 6e 61 6c 20 | 76 61 6c 75 65 2c 0d 09 |riginal |value,..|
|00000c60| 09 09 5c 09 09 65 2e 67 | 2e 20 73 63 72 6f 6c 6c |..\..e.g|. scroll|
|00000c70| 20 62 61 72 0d 09 67 65 | 74 3a 20 61 6c 69 76 65 | bar..ge|t: alive|
|00000c80| 3f 20 20 67 65 74 3a 20 | 65 6e 61 62 6c 65 64 3f |?  get: |enabled?|
|00000c90| 20 20 61 6e 64 0d 09 49 | 46 09 09 77 6f 72 64 30 |  and..I|F..word0|
|00000ca0| 20 20 67 65 74 3a 20 63 | 74 6c 48 6e 64 6c 20 20 |  get: c|tlHndl  |
|00000cb0| 63 61 6c 6c 20 67 65 74 | 43 74 6c 56 61 6c 75 65 |call get|CtlValue|
|00000cc0| 20 20 77 6f 72 64 30 0d | 09 09 09 64 75 70 20 20 |  word0.|...dup  |
|00000cd0| 70 75 74 3a 20 6d 79 56 | 61 6c 75 65 09 09 09 5c |put: myV|alue...\|
|00000ce0| 20 6d 61 79 20 68 61 76 | 65 20 62 65 65 6e 20 64 | may hav|e been d|
|00000cf0| 69 66 66 65 72 65 6e 74 | 2c 20 65 2e 67 2e 20 6f |ifferent|, e.g. o|
|00000d00| 6e 20 61 0d 09 09 09 09 | 09 09 09 09 09 09 5c 20 |n a.....|......\ |
|00000d10| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 74 68 75 6d | scroll |bar thum|
|00000d20| 62 20 64 72 61 67 0d 09 | 45 4c 53 45 09 67 65 74 |b drag..|ELSE.get|
|00000d30| 3a 20 6d 79 56 61 6c 75 | 65 0d 09 54 48 45 4e 20 |: myValu|e..THEN |
|00000d40| 20 3b 6d 20 0d 0d 0d 3a | 6d 20 4d 4f 56 45 44 3a | ;m ...:|m MOVED:|
|00000d50| 20 20 7b 20 5c 20 6f 6c | 64 4c 20 6f 6c 64 54 20 |  { \ ol|dL oldT |
|00000d60| 6f 6c 64 52 20 6f 6c 64 | 42 20 6e 65 77 4c 20 6e |oldR old|B newL n|
|00000d70| 65 77 54 20 6e 65 77 52 | 20 6e 65 77 42 20 2d 2d |ewT newR| newB --|
|00000d80| 20 7d 0d 09 67 65 74 3a | 20 76 69 65 77 52 65 63 | }..get:| viewRec|
|00000d90| 74 20 2d 3e 20 6f 6c 64 | 42 20 20 2d 3e 20 6f 6c |t -> old|B  -> ol|
|00000da0| 64 52 20 2d 3e 20 6f 6c | 64 54 20 2d 3e 20 6f 6c |dR -> ol|dT -> ol|
|00000db0| 64 4c 0d 09 75 70 64 61 | 74 65 3a 20 76 69 65 77 |dL..upda|te: view|
|00000dc0| 52 65 63 74 09 09 09 09 | 5c 20 4f 6c 64 20 63 74 |Rect....|\ Old ct|
|00000dd0| 6c 20 70 6f 73 6e 20 6d | 75 73 74 20 62 65 20 72 |l posn m|ust be r|
|00000de0| 65 64 72 61 77 6e 0d 09 | 62 6f 75 6e 64 73 3e 76 |edrawn..|bounds>v|
|00000df0| 69 65 77 52 65 63 74 3a | 20 73 65 6c 66 0d 09 67 |iewRect:| self..g|
|00000e00| 65 74 3a 20 76 69 65 77 | 52 65 63 74 20 20 2d 3e |et: view|Rect  ->|
|00000e10| 20 6e 65 77 42 20 20 2d | 3e 20 6e 65 77 52 20 2d | newB  -|> newR -|
|00000e20| 3e 20 6e 65 77 54 20 2d | 3e 20 6e 65 77 4c 0d 09 |> newT -|> newL..|
|00000e30| 6e 69 6c 3f 3a 20 63 74 | 6c 48 6e 64 6c 0d 09 4e |nil?: ct|lHndl..N|
|00000e40| 49 46 09 6f 6c 64 4c 20 | 6e 65 77 4c 20 3c 3e 0d |IF.oldL |newL <>.|
|00000e50| 09 09 6f 6c 64 54 20 6e | 65 77 54 20 3c 3e 20 6f |..oldT n|ewT <> o|
|00000e60| 72 0d 09 09 6f 6c 64 52 | 20 6e 65 77 52 20 3c 3e |r...oldR| newR <>|
|00000e70| 20 6f 72 0d 09 09 6f 6c | 64 42 20 6e 65 77 42 20 | or...ol|dB newB |
|00000e80| 3c 3e 20 6f 72 0d 09 09 | 49 46 09 0d 09 09 09 75 |<> or...|IF.....u|
|00000e90| 70 64 61 74 65 3a 20 76 | 69 65 77 52 65 63 74 09 |pdate: v|iewRect.|
|00000ea0| 09 5c 20 77 68 61 74 65 | 76 65 72 20 77 61 73 20 |.\ whate|ver was |
|00000eb0| 62 65 68 69 6e 64 20 6d | 75 73 74 20 62 65 20 72 |behind m|ust be r|
|00000ec0| 65 64 72 61 77 6e 0d 09 | 09 09 68 69 64 65 3a 20 |edrawn..|..hide: |
|00000ed0| 73 65 6c 66 0d 09 09 09 | 67 65 74 3a 20 63 74 6c |self....|get: ctl|
|00000ee0| 48 6e 64 6c 20 20 6e 65 | 77 52 20 6e 65 77 4c 20 |Hndl  ne|wR newL |
|00000ef0| 2d 20 20 6e 65 77 42 20 | 6e 65 77 54 20 2d 20 20 |-  newB |newT -  |
|00000f00| 70 61 63 6b 20 20 63 61 | 6c 6c 20 53 69 7a 65 43 |pack  ca|ll SizeC|
|00000f10| 6f 6e 74 72 6f 6c 0d 09 | 09 09 67 65 74 3a 20 63 |ontrol..|..get: c|
|00000f20| 74 6c 48 6e 64 6c 20 20 | 6e 65 77 4c 20 6e 65 77 |tlHndl  |newL new|
|00000f30| 54 20 70 61 63 6b 20 20 | 63 61 6c 6c 20 4d 6f 76 |T pack  |call Mov|
|00000f40| 65 43 6f 6e 74 72 6f 6c | 0d 09 09 09 73 68 6f 77 |eControl|....show|
|00000f50| 3a 20 73 65 6c 66 0d 09 | 09 09 61 64 64 72 3a 20 |: self..|..addr: |
|00000f60| 76 69 65 77 52 65 63 74 | 20 20 63 61 6c 6c 20 56 |viewRect|  call V|
|00000f70| 61 6c 69 64 52 65 63 74 | 0d 09 09 54 48 45 4e 0d |alidRect|...THEN.|
|00000f80| 09 54 48 45 4e 0d 09 63 | 68 69 6c 64 72 65 6e 4d |.THEN..c|hildrenM|
|00000f90| 6f 76 65 64 3a 20 73 65 | 6c 66 09 09 09 09 5c 20 |oved: se|lf....\ |
|00000fa0| 48 6d 6d 6d 20 2d 20 73 | 68 6f 75 6c 64 20 61 20 |Hmmm - s|hould a |
|00000fb0| 63 6f 6e 74 72 6f 6c 20 | 68 61 76 65 20 63 68 69 |control |have chi|
|00000fc0| 6c 64 72 65 6e 3f 0d 3b | 6d 0d 09 0d 0d 5c 20 4e |ldren?.;|m....\ N|
|00000fd0| 45 57 3a 20 28 20 2d 2d | 20 29 20 20 63 61 6c 6c |EW: ( --| )  call|
|00000fe0| 73 20 74 68 65 20 54 6f | 6f 6c 62 6f 78 20 74 6f |s the To|olbox to|
|00000ff0| 20 66 69 72 65 20 75 70 | 20 74 68 65 20 63 6f 6e | fire up| the con|
|00001000| 74 72 6f 6c 2e 0d 0d 5c | 20 57 68 65 6e 20 74 6f |trol...\| When to|
|00001010| 20 63 61 6c 6c 20 6e 65 | 77 3a 20 73 75 70 65 72 | call ne|w: super|
|00001020| 20 3f 20 20 49 66 20 77 | 65 20 64 6f 20 69 74 20 | ?  If w|e do it |
|00001030| 61 74 20 74 68 65 20 73 | 74 61 72 74 2c 20 63 68 |at the s|tart, ch|
|00001040| 69 6c 64 20 63 6f 6e 74 | 72 6f 6c 73 0d 5c 20 77 |ild cont|rols.\ w|
|00001050| 69 6c 6c 20 62 65 20 64 | 72 61 77 6e 20 66 69 72 |ill be d|rawn fir|
|00001060| 73 74 20 77 68 69 63 68 | 20 69 73 6e 27 74 20 77 |st which| isn't w|
|00001070| 68 61 74 20 77 65 20 77 | 61 6e 74 2e 20 20 49 66 |hat we w|ant.  If|
|00001080| 20 77 65 20 64 6f 20 69 | 74 20 61 74 20 74 68 65 | we do i|t at the|
|00001090| 20 65 6e 64 2c 0d 5c 20 | 62 6f 75 6e 64 73 3e 76 | end,.\ |bounds>v|
|000010a0| 69 65 77 72 65 63 74 20 | 77 6f 6e 27 74 20 68 61 |iewrect |won't ha|
|000010b0| 76 65 20 62 65 65 6e 20 | 64 6f 6e 65 20 73 6f 20 |ve been |done so |
|000010c0| 74 68 65 20 76 69 65 77 | 72 65 63 74 20 77 6f 6e |the view|rect won|
|000010d0| 27 74 20 62 65 20 76 61 | 6c 69 64 2e 0d 5c 20 53 |'t be va|lid..\ S|
|000010e0| 6f 20 77 65 27 64 20 62 | 65 74 74 65 72 20 6e 6f |o we'd b|etter no|
|000010f0| 74 20 64 6f 20 69 74 20 | 61 74 20 61 6c 6c 2c 20 |t do it |at all, |
|00001100| 62 75 74 20 63 6f 6d 70 | 6c 65 74 65 6c 79 20 6f |but comp|letely o|
|00001110| 76 65 72 72 69 64 65 2e | 0d 0d 3a 6d 20 4e 45 57 |verride.|..:m NEW|
|00001120| 3a 0d 09 73 65 74 75 70 | 4e 65 77 3a 20 73 75 70 |:..setup|New: sup|
|00001130| 65 72 0d 0d 09 30 09 09 | 09 09 09 09 09 09 09 09 |er...0..|........|
|00001140| 5c 20 66 6f 72 20 72 65 | 74 75 72 6e 20 68 61 6e |\ for re|turn han|
|00001150| 64 6c 65 0d 09 77 69 6e | 64 6f 77 3a 20 73 65 6c |dle..win|dow: sel|
|00001160| 66 0d 09 61 64 64 72 3a | 20 76 69 65 77 52 65 63 |f..addr:| viewRec|
|00001170| 74 0d 09 61 64 64 72 3a | 20 74 69 74 6c 65 20 20 |t..addr:| title  |
|00001180| 67 65 74 3a 20 74 69 74 | 6c 65 4c 65 6e 20 20 73 |get: tit|leLen  s|
|00001190| 74 72 32 35 35 0d 09 77 | 20 32 35 36 09 09 09 09 |tr255..w| 256....|
|000011a0| 09 09 09 09 09 5c 20 76 | 69 73 69 62 6c 65 20 2d |.....\ v|isible -|
|000011b0| 20 75 73 65 20 30 20 66 | 6f 72 20 69 6e 76 69 73 | use 0 f|or invis|
|000011c0| 69 62 6c 65 0d 09 77 6f | 72 64 30 20 20 77 6f 72 |ible..wo|rd0  wor|
|000011d0| 64 30 20 20 77 20 31 20 | 20 69 6e 74 3a 20 70 72 |d0  w 1 | int: pr|
|000011e0| 6f 63 69 64 09 09 09 5c | 20 69 6e 69 74 69 61 6c |ocid...\| initial|
|000011f0| 20 76 61 6c 75 65 2c 20 | 6d 69 6e 2c 20 6d 61 78 | value, |min, max|
|00001200| 2c 20 70 72 6f 63 49 44 | 0d 09 30 09 09 09 09 09 |, procID|..0.....|
|00001210| 09 09 09 09 09 5c 20 69 | 6e 69 74 69 61 6c 20 72 |.....\ i|nitial r|
|00001220| 65 66 43 6f 6e 20 2d 20 | 77 65 20 64 6f 6e 27 74 |efCon - |we don't|
|00001230| 20 75 73 65 20 69 74 0d | 09 63 61 6c 6c 20 4e 65 | use it.|.call Ne|
|00001240| 77 43 6f 6e 74 72 6f 6c | 20 20 20 70 75 74 3a 20 |wControl|   put: |
|00001250| 63 74 6c 48 6e 64 6c 0d | 09 67 65 74 3a 20 6d 79 |ctlHndl.|.get: my|
|00001260| 56 61 6c 75 65 20 20 70 | 75 74 3a 20 73 65 6c 66 |Value  p|ut: self|
|00001270| 0d 0d 09 77 69 6e 64 75 | 70 4e 65 77 3a 20 73 65 |...windu|pNew: se|
|00001280| 6c 66 20 20 3b 6d 0d 0d | 0d 3a 6d 20 47 45 54 4e |lf  ;m..|.:m GETN|
|00001290| 45 57 3a 20 20 7b 20 74 | 68 65 56 69 65 77 20 2d |EW:  { t|heView -|
|000012a0| 2d 20 7d 09 09 5c 20 55 | 73 65 73 20 61 20 72 65 |- }..\ U|ses a re|
|000012b0| 73 6f 75 72 63 65 2e 0d | 09 73 65 74 75 70 4e 65 |source..|.setupNe|
|000012c0| 77 3a 20 73 65 6c 66 0d | 09 0d 09 30 20 20 69 6e |w: self.|...0  in|
|000012d0| 74 3a 20 72 65 73 49 44 | 20 20 77 69 6e 64 6f 77 |t: resID|  window|
|000012e0| 3a 20 73 65 6c 66 0d 09 | 63 61 6c 6c 20 47 65 74 |: self..|call Get|
|000012f0| 4e 65 77 43 6f 6e 74 72 | 6f 6c 20 20 70 75 74 3a |NewContr|ol  put:|
|00001300| 20 63 74 6c 48 6e 64 6c | 0d 09 67 65 74 3a 20 6d | ctlHndl|..get: m|
|00001310| 79 56 61 6c 75 65 20 20 | 70 75 74 3a 20 73 65 6c |yValue  |put: sel|
|00001320| 66 0d 0d 09 77 69 6e 64 | 75 70 4e 65 77 3a 20 73 |f...wind|upNew: s|
|00001330| 65 6c 66 20 20 3b 6d 0d | 0d 0d 3a 6d 20 44 52 41 |elf  ;m.|..:m DRA|
|00001340| 57 3a 0d 09 28 64 72 61 | 77 29 3a 20 73 75 70 65 |W:..(dra|w): supe|
|00001350| 72 0d 09 30 20 20 63 61 | 6c 6c 20 53 65 74 4f 72 |r..0  ca|ll SetOr|
|00001360| 69 67 69 6e 20 20 61 64 | 64 72 3a 20 76 69 65 77 |igin  ad|dr: view|
|00001370| 52 65 63 74 20 20 63 61 | 6c 6c 20 43 6c 69 70 52 |Rect  ca|ll ClipR|
|00001380| 65 63 74 0d 09 67 65 74 | 3a 20 63 74 6c 48 6e 64 |ect..get|: ctlHnd|
|00001390| 6c 20 20 63 61 6c 6c 20 | 44 72 61 77 31 43 6f 6e |l  call |Draw1Con|
|000013a0| 74 72 6f 6c 0d 3b 6d 0d | 0d 0d 0d 3a 6d 20 43 4c |trol.;m.|...:m CL|
|000013b0| 49 43 4b 3a 20 20 7b 20 | 5c 20 73 76 43 6c 69 63 |ICK:  { |\ svClic|
|000013c0| 6b 48 6e 64 6c 72 20 70 | 61 72 74 20 5e 63 74 6c |kHndlr p|art ^ctl|
|000013d0| 20 61 63 74 69 6f 6e 31 | 20 61 63 74 69 6f 6e 32 | action1| action2|
|000013e0| 20 78 20 79 20 2d 2d 20 | 62 20 7d 0d 0d 09 5c 20 | x y -- |b }...\ |
|000013f0| 52 65 74 75 72 6e 73 20 | 74 72 75 65 20 69 66 20 |Returns |true if |
|00001400| 77 65 27 76 65 20 68 61 | 6e 64 6c 65 64 20 74 68 |we've ha|ndled th|
|00001410| 65 20 63 6c 69 63 6b 2e | 20 20 41 20 67 6f 74 63 |e click.|  A gotc|
|00001420| 68 61 20 68 65 72 65 20 | 69 73 20 74 68 61 74 0d |ha here |is that.|
|00001430| 09 5c 20 77 65 20 6e 65 | 65 64 20 74 6f 20 63 61 |.\ we ne|ed to ca|
|00001440| 6c 6c 20 63 6c 69 63 6b | 3a 20 73 75 70 65 72 20 |ll click|: super |
|00001450| 73 6f 20 74 68 61 74 20 | 56 69 65 77 20 63 61 6e |so that |View can|
|00001460| 20 63 68 65 63 6b 20 69 | 66 20 74 68 65 20 63 6c | check i|f the cl|
|00001470| 69 63 6b 0d 09 5c 20 69 | 73 20 72 65 61 6c 6c 79 |ick..\ i|s really|
|00001480| 20 66 6f 72 20 75 73 2c | 20 62 75 74 20 56 69 65 | for us,| but Vie|
|00001490| 77 20 6d 75 73 74 6e 27 | 74 20 65 78 65 63 75 74 |w mustn'|t execut|
|000014a0| 65 20 74 68 65 20 63 6c | 69 63 6b 20 68 61 6e 64 |e the cl|ick hand|
|000014b0| 6c 65 72 20 73 69 6e 63 | 65 0d 09 5c 20 74 68 65 |ler sinc|e..\ the|
|000014c0| 20 73 74 61 6e 64 61 72 | 64 20 61 63 74 69 6f 6e | standar|d action|
|000014d0| 20 66 6f 72 20 63 6f 6e | 74 72 6f 6c 73 20 69 73 | for con|trols is|
|000014e0| 20 74 68 61 74 20 74 68 | 65 20 63 6c 69 63 6b 20 | that th|e click |
|000014f0| 6f 6e 6c 79 20 63 6f 75 | 6e 74 73 20 69 66 0d 09 |only cou|nts if..|
|00001500| 5c 20 74 68 65 20 6d 6f | 75 73 65 20 69 73 20 73 |\ the mo|use is s|
|00001510| 74 69 6c 6c 20 69 6e 20 | 74 68 65 20 63 6f 6e 74 |till in |the cont|
|00001520| 72 6f 6c 20 61 74 20 6d | 6f 75 73 65 2d 75 70 20 |rol at m|ouse-up |
|00001530| 28 54 72 61 63 6b 43 6f | 6e 74 72 6f 6c 20 68 61 |(TrackCo|ntrol ha|
|00001540| 6e 64 6c 65 73 0d 09 5c | 20 74 68 69 73 29 2e 20 |ndles..\| this). |
|00001550| 20 57 65 20 74 68 65 72 | 65 66 6f 72 65 20 72 65 | We ther|efore re|
|00001560| 6d 6f 76 65 20 74 68 65 | 20 63 6c 69 63 6b 20 68 |move the| click h|
|00001570| 61 6e 64 6c 65 72 20 77 | 68 69 6c 65 20 63 61 6c |andler w|hile cal|
|00001580| 6c 69 6e 67 20 6e 65 77 | 3a 20 73 75 70 65 72 2c |ling new|: super,|
|00001590| 0d 09 5c 20 74 68 65 6e | 20 70 75 74 20 69 74 20 |..\ then| put it |
|000015a0| 62 61 63 6b 21 0d 0d 09 | 67 65 74 3a 20 63 6c 69 |back!...|get: cli|
|000015b0| 63 6b 48 6e 64 6c 72 20 | 2d 3e 20 73 76 43 6c 69 |ckHndlr |-> svCli|
|000015c0| 63 6b 48 6e 64 6c 72 0d | 09 5b 27 5d 20 6e 75 6c |ckHndlr.|.['] nul|
|000015d0| 6c 20 20 70 75 74 3a 20 | 63 6c 69 63 6b 48 6e 64 |l  put: |clickHnd|
|000015e0| 6c 72 09 5c 20 44 6f 6e | 27 74 20 77 61 6e 74 20 |lr.\ Don|'t want |
|000015f0| 56 69 65 77 20 74 6f 20 | 65 78 65 63 75 74 65 20 |View to |execute |
|00001600| 74 68 65 20 63 6c 69 63 | 6b 48 6e 64 6c 72 0d 09 |the clic|kHndlr..|
|00001610| 63 6c 69 63 6b 3a 20 73 | 75 70 65 72 09 09 09 09 |click: s|uper....|
|00001620| 5c 20 44 6f 20 74 68 65 | 20 73 74 61 6e 64 61 72 |\ Do the| standar|
|00001630| 64 20 56 69 65 77 20 73 | 74 75 66 66 20 66 69 72 |d View s|tuff fir|
|00001640| 73 74 0d 09 73 76 43 6c | 69 63 6b 48 6e 64 6c 72 |st..svCl|ickHndlr|
|00001650| 20 20 70 75 74 3a 20 63 | 6c 69 63 6b 48 6e 64 6c |  put: c|lickHndl|
|00001660| 72 0d 09 4e 49 46 20 20 | 66 61 6c 73 65 20 20 45 |r..NIF  |false  E|
|00001670| 58 49 54 20 20 54 48 45 | 4e 09 09 5c 20 43 6c 69 |XIT  THE|N..\ Cli|
|00001680| 63 6b 20 77 61 73 6e 27 | 74 20 66 6f 72 20 75 73 |ck wasn'|t for us|
|00001690| 20 2d 20 67 65 74 20 6f | 75 74 0d 0d 5c 20 4f 4b | - get o|ut..\ OK|
|000016a0| 2c 20 77 65 20 6b 6e 6f | 77 20 74 68 65 20 63 6c |, we kno|w the cl|
|000016b0| 69 63 6b 20 77 61 73 20 | 6f 6e 20 74 68 69 73 20 |ick was |on this |
|000016c0| 63 6f 6e 74 72 6f 6c 2c | 20 62 75 74 20 77 65 20 |control,| but we |
|000016d0| 73 74 69 6c 6c 20 6e 65 | 65 64 20 74 6f 20 63 61 |still ne|ed to ca|
|000016e0| 6c 6c 0d 5c 20 46 69 6e | 64 43 6f 6e 74 72 6f 6c |ll.\ Fin|dControl|
|000016f0| 20 74 6f 20 67 65 74 20 | 74 68 65 20 72 69 67 68 | to get |the righ|
|00001700| 74 20 70 61 72 74 20 63 | 6f 64 65 2c 20 61 6e 64 |t part c|ode, and|
|00001710| 20 54 72 61 63 6b 43 6f | 6e 74 72 6f 6c 20 74 6f | TrackCo|ntrol to|
|00001720| 20 64 6f 20 61 6e 79 0d | 5c 20 6e 65 63 65 73 73 | do any.|\ necess|
|00001730| 61 72 79 20 74 72 61 63 | 6b 69 6e 67 2e 0d 0d 09 |ary trac|king....|
|00001740| 5e 62 61 73 65 20 2d 3e | 20 74 68 69 73 43 74 6c |^base ->| thisCtl|
|00001750| 09 09 09 09 5c 20 46 6f | 72 20 74 68 65 20 54 72 |....\ Fo|r the Tr|
|00001760| 61 63 6b 43 6f 6e 74 72 | 6f 6c 20 3a 70 72 6f 63 |ackContr|ol :proc|
|00001770| 20 72 6f 75 74 69 6e 65 | 0d 0d 09 77 6f 72 64 30 | routine|...word0|
|00001780| 20 6d 70 6f 69 6e 74 20 | 67 65 74 3a 20 5e 6d 79 | mpoint |get: ^my|
|00001790| 57 69 6e 64 20 74 68 65 | 43 74 6c 20 20 63 61 6c |Wind the|Ctl  cal|
|000017a0| 6c 20 46 69 6e 64 43 6f | 6e 74 72 6f 6c 0d 09 77 |l FindCo|ntrol..w|
|000017b0| 6f 72 64 30 20 2d 3e 20 | 70 61 72 74 0d 09 74 68 |ord0 -> |part..th|
|000017c0| 65 43 74 6c 20 40 20 2d | 3e 20 5e 63 74 6c 09 09 |eCtl @ -|> ^ctl..|
|000017d0| 09 09 5c 20 63 74 6c 20 | 68 61 6e 64 6c 65 0d 09 |..\ ctl |handle..|
|000017e0| 5e 63 74 6c 20 20 67 65 | 74 3a 20 63 74 6c 48 6e |^ctl  ge|t: ctlHn|
|000017f0| 64 6c 20 3c 3e 09 09 09 | 5c 20 72 65 61 6c 6c 79 |dl <>...|\ really|
|00001800| 2c 20 74 68 65 79 20 6f | 75 67 68 74 20 74 6f 20 |, they o|ught to |
|00001810| 62 65 20 74 68 65 20 73 | 61 6d 65 0d 09 49 46 20 |be the s|ame..IF |
|00001820| 20 66 61 6c 73 65 20 20 | 45 58 49 54 20 20 54 48 | false  |EXIT  TH|
|00001830| 45 4e 09 09 09 5c 20 69 | 66 20 6e 6f 74 2c 20 77 |EN...\ i|f not, w|
|00001840| 65 20 6a 75 73 74 20 72 | 65 74 75 72 6e 20 66 61 |e just r|eturn fa|
|00001850| 6c 73 65 0d 09 09 09 09 | 09 09 09 09 09 5c 20 20 |lse.....|.....\  |
|00001860| 28 61 6e 79 20 62 65 74 | 74 65 72 20 69 64 65 61 |(any bet|ter idea|
|00001870| 73 3f 29 0d 09 70 61 72 | 74 0d 09 43 41 53 45 5b |s?)..par|t..CASE[|
|00001880| 20 69 6e 54 68 75 6d 62 | 20 5d 2c 20 5b 20 69 6e | inThumb| ], [ in|
|00001890| 43 68 65 63 6b 42 6f 78 | 20 5d 2c 20 5b 20 69 6e |CheckBox| ], [ in|
|000018a0| 42 75 74 74 6f 6e 20 5d | 3d 3e 0d 09 20 20 20 20 |Button ]|=>..    |
|000018b0| 09 09 09 09 09 09 5c 20 | 77 65 20 6f 6e 6c 79 20 |......\ |we only |
|000018c0| 65 78 65 63 75 74 65 20 | 74 68 65 73 65 20 61 66 |execute |these af|
|000018d0| 74 65 72 20 6d 6f 75 73 | 65 55 70 20 2d 0d 09 09 |ter mous|eUp -...|
|000018e0| 30 20 2d 3e 20 20 61 63 | 74 69 6f 6e 31 09 09 09 |0 ->  ac|tion1...|
|000018f0| 5c 20 74 68 65 72 65 27 | 73 20 6e 6f 20 61 63 74 |\ there'|s no act|
|00001900| 69 6f 6e 20 77 68 69 6c | 65 20 6d 6f 75 73 65 20 |ion whil|e mouse |
|00001910| 64 6f 77 6e 2e 20 20 46 | 6f 72 0d 09 09 09 09 09 |down.  F|or......|
|00001920| 09 09 09 5c 20 74 68 69 | 73 20 63 61 73 65 20 77 |...\ thi|s case w|
|00001930| 65 20 68 61 76 65 20 74 | 6f 20 70 61 73 73 20 61 |e have t|o pass a|
|00001940| 20 74 6f 6f 6c 42 6f 78 | 20 4e 49 4c 0d 09 09 09 | toolBox| NIL....|
|00001950| 09 09 09 09 09 5c 20 74 | 6f 20 54 72 61 63 6b 43 |.....\ t|o TrackC|
|00001960| 6f 6e 74 72 6f 6c 20 28 | 69 2e 65 2e 20 7a 65 72 |ontrol (|i.e. zer|
|00001970| 6f 29 0d 09 09 5b 27 5d | 20 63 74 6c 45 78 65 63 |o)...[']| ctlExec|
|00001980| 20 20 2d 3e 20 61 63 74 | 69 6f 6e 32 0d 09 44 45 |  -> act|ion2..DE|
|00001990| 46 41 55 4c 54 3d 3e 0d | 09 09 64 72 6f 70 20 20 |FAULT=>.|..drop  |
|000019a0| 5b 27 5d 20 63 74 6c 70 | 72 6f 63 20 2d 3e 20 61 |['] ctlp|roc -> a|
|000019b0| 63 74 69 6f 6e 31 20 20 | 5b 27 5d 20 64 72 6f 70 |ction1  |['] drop|
|000019c0| 20 2d 3e 20 61 63 74 69 | 6f 6e 32 0d 09 5d 43 41 | -> acti|on2..]CA|
|000019d0| 53 45 0d 09 5e 63 74 6c | 0d 09 49 46 09 61 64 64 |SE..^ctl|..IF.add|
|000019e0| 72 3a 20 76 69 65 77 52 | 65 63 74 20 20 63 61 6c |r: viewR|ect  cal|
|000019f0| 6c 20 43 6c 69 70 52 65 | 63 74 09 09 5c 20 73 6f |l ClipRe|ct..\ so|
|00001a00| 20 68 69 6c 69 74 69 6e | 67 20 73 68 6f 77 73 20 | hilitin|g shows |
|00001a10| 75 70 21 0d 09 09 77 6f | 72 64 30 20 20 5e 63 74 |up!...wo|rd0  ^ct|
|00001a20| 6c 20 20 6d 70 6f 69 6e | 74 20 20 61 63 74 69 6f |l  mpoin|t  actio|
|00001a30| 6e 31 20 20 63 61 6c 6c | 20 54 72 61 63 6b 43 6f |n1  call| TrackCo|
|00001a40| 6e 74 72 6f 6c 20 20 77 | 6f 72 64 30 0d 09 09 61 |ntrol  w|ord0...a|
|00001a50| 63 74 69 6f 6e 32 20 20 | 65 78 65 63 75 74 65 20 |ction2  |execute |
|00001a60| 20 74 72 75 65 0d 09 45 | 4c 53 45 09 66 61 6c 73 | true..E|LSE.fals|
|00001a70| 65 0d 09 54 48 45 4e 20 | 20 3b 6d 0d 0d 0d 3a 6d |e..THEN | ;m...:m|
|00001a80| 20 48 49 4c 49 54 45 3a | 20 20 7b 20 68 69 6c 69 | HILITE:|  { hili|
|00001a90| 74 65 53 74 61 74 65 20 | 2d 2d 20 7d 20 20 5c 20 |teState |-- }  \ |
|00001aa0| 48 69 6c 69 74 65 73 20 | 61 20 70 61 72 74 20 6f |Hilites |a part o|
|00001ab0| 72 20 65 6e 74 69 72 65 | 20 63 6f 6e 74 72 6f 6c |r entire| control|
|00001ac0| 0d 09 67 65 74 3a 20 61 | 6c 69 76 65 3f 20 20 30 |..get: a|live?  0|
|00001ad0| 45 58 49 54 0d 09 61 64 | 64 72 3a 20 76 69 65 77 |EXIT..ad|dr: view|
|00001ae0| 52 65 63 74 20 20 63 61 | 6c 6c 20 43 6c 69 70 52 |Rect  ca|ll ClipR|
|00001af0| 65 63 74 0d 09 67 65 74 | 3a 20 63 74 6c 48 6e 64 |ect..get|: ctlHnd|
|00001b00| 6c 20 20 68 69 6c 69 74 | 65 53 74 61 74 65 20 20 |l  hilit|eState  |
|00001b10| 6d 61 6b 65 69 6e 74 0d | 09 63 61 6c 6c 20 48 69 |makeint.|.call Hi|
|00001b20| 6c 69 74 65 43 6f 6e 74 | 72 6f 6c 0d 09 61 64 64 |liteCont|rol..add|
|00001b30| 72 3a 20 76 69 65 77 52 | 65 63 74 20 20 63 61 6c |r: viewR|ect  cal|
|00001b40| 6c 20 56 61 6c 69 64 52 | 65 63 74 20 20 3b 6d 0d |l ValidR|ect  ;m.|
|00001b50| 09 09 09 09 5c 20 4f 74 | 68 65 72 77 69 73 65 20 |....\ Ot|herwise |
|00001b60| 69 74 20 63 61 6e 20 67 | 65 74 20 64 72 61 77 6e |it can g|et drawn|
|00001b70| 20 74 77 69 63 65 2c 20 | 73 75 63 68 20 61 73 20 | twice, |such as |
|00001b80| 69 66 20 77 68 65 6e 20 | 61 20 77 69 6e 64 6f 77 |if when |a window|
|00001b90| 0d 09 09 09 09 5c 20 69 | 73 20 61 63 74 69 76 61 |.....\ i|s activa|
|00001ba0| 74 65 64 20 69 74 20 61 | 6c 73 6f 20 67 65 74 73 |ted it a|lso gets|
|00001bb0| 20 75 6e 63 6f 76 65 72 | 65 64 2c 20 74 68 65 72 | uncover|ed, ther|
|00001bc0| 65 27 6c 6c 20 62 65 20 | 61 6e 20 75 70 64 61 74 |e'll be |an updat|
|00001bd0| 65 0d 09 09 09 09 5c 20 | 65 76 65 6e 74 20 63 6f |e.....\ |event co|
|00001be0| 6d 69 6e 67 2e 0d 0d 3a | 6d 20 44 49 53 41 42 4c |ming...:|m DISABL|
|00001bf0| 45 3a 09 09 32 35 35 09 | 68 69 6c 69 74 65 3a 20 |E:..255.|hilite: |
|00001c00| 73 65 6c 66 20 20 66 61 | 6c 73 65 20 70 75 74 3a |self  fa|lse put:|
|00001c10| 20 65 6e 61 62 6c 65 64 | 3f 20 20 3b 6d 20 0d 3a | enabled|?  ;m .:|
|00001c20| 6d 20 45 4e 41 42 4c 45 | 3a 09 09 30 09 68 69 6c |m ENABLE|:..0.hil|
|00001c30| 69 74 65 3a 20 73 65 6c | 66 20 20 74 72 75 65 20 |ite: sel|f  true |
|00001c40| 20 70 75 74 3a 20 65 6e | 61 62 6c 65 64 3f 20 20 | put: en|abled?  |
|00001c50| 3b 6d 20 0d 0d 0d 3a 6d | 20 53 45 54 54 49 54 4c |;m ...:m| SETTITL|
|00001c60| 45 3a 09 5c 20 28 20 61 | 64 64 72 20 6c 65 6e 20 |E:.\ ( a|ddr len |
|00001c70| 2d 2d 20 29 0d 09 33 32 | 20 6d 69 6e 20 20 64 75 |-- )..32| min  du|
|00001c80| 70 20 70 75 74 3a 20 74 | 69 74 6c 65 4c 65 6e 20 |p put: t|itleLen |
|00001c90| 20 61 64 64 72 3a 20 74 | 69 74 6c 65 20 20 73 77 | addr: t|itle  sw|
|00001ca0| 61 70 20 20 63 6d 6f 76 | 65 0d 09 6e 69 6c 3f 3a |ap  cmov|e..nil?:|
|00001cb0| 20 63 74 6c 48 6e 64 6c | 0d 09 4e 49 46 0d 09 09 | ctlHndl|..NIF...|
|00001cc0| 61 64 64 72 3a 20 74 69 | 74 6c 65 20 20 67 65 74 |addr: ti|tle  get|
|00001cd0| 3a 20 74 69 74 6c 65 4c | 65 6e 20 20 73 74 72 32 |: titleL|en  str2|
|00001ce0| 35 35 0d 09 09 67 65 74 | 3a 20 63 74 6c 48 6e 64 |55...get|: ctlHnd|
|00001cf0| 6c 20 20 73 77 61 70 20 | 20 63 61 6c 6c 20 73 65 |l  swap | call se|
|00001d00| 74 43 54 69 74 6c 65 0d | 09 54 48 45 4e 20 20 3b |tCTitle.|.THEN  ;|
|00001d10| 6d 20 0d 0d 3a 6d 20 47 | 45 54 54 49 54 4c 45 3a |m ..:m G|ETTITLE:|
|00001d20| 09 5c 20 28 20 2d 2d 20 | 61 64 64 72 20 6c 65 6e |.\ ( -- |addr len|
|00001d30| 20 29 0d 09 61 64 64 72 | 3a 20 74 69 74 6c 65 20 | )..addr|: title |
|00001d40| 20 67 65 74 3a 20 74 69 | 74 6c 65 4c 65 6e 20 20 | get: ti|tleLen  |
|00001d50| 3b 6d 20 0d 0d 0d 3a 6d | 20 52 45 4c 45 41 53 45 |;m ...:m| RELEASE|
|00001d60| 3a 0d 09 67 65 74 3a 20 | 63 74 6c 48 6e 64 6c 20 |:..get: |ctlHndl |
|00001d70| 20 63 61 6c 6c 20 44 69 | 73 70 6f 73 43 6f 6e 74 | call Di|sposCont|
|00001d80| 72 6f 6c 20 20 6e 69 6c | 48 20 70 75 74 3a 20 63 |rol  nil|H put: c|
|00001d90| 74 6c 48 6e 64 6c 0d 09 | 72 65 6c 65 61 73 65 3a |tlHndl..|release:|
|00001da0| 20 73 75 70 65 72 20 20 | 3b 6d 20 0d 0d 0d 3a 6d | super  |;m ...:m|
|00001db0| 20 43 4c 41 53 53 49 4e | 49 54 3a 09 5c 20 53 65 | CLASSIN|IT:.\ Se|
|00001dc0| 74 73 20 64 65 66 61 75 | 6c 74 20 63 6f 6e 74 72 |ts defau|lt contr|
|00001dd0| 6f 6c 20 74 6f 20 61 20 | 73 74 61 6e 64 61 72 64 |ol to a |standard|
|00001de0| 20 62 75 74 74 6f 6e 0d | 09 63 6c 61 73 73 69 6e | button.|.classin|
|00001df0| 69 74 3a 20 73 75 70 65 | 72 0d 09 62 75 74 74 6f |it: supe|r..butto|
|00001e00| 6e 49 44 20 20 70 75 74 | 3a 20 72 65 73 49 44 0d |nID  put|: resID.|
|00001e10| 09 5b 27 5d 20 6e 75 6c | 6c 20 20 73 65 74 43 6c |.['] nul|l  setCl|
|00001e20| 69 63 6b 3a 20 73 65 6c | 66 0d 09 63 6c 65 61 72 |ick: sel|f..clear|
|00001e30| 3a 20 74 69 74 6c 65 4c | 65 6e 20 20 3b 6d 20 0d |: titleL|en  ;m .|
|00001e40| 0d 3b 63 6c 61 73 73 0d | 0d 0d 5c 20 43 6c 61 73 |.;class.|..\ Clas|
|00001e50| 73 20 54 69 74 6c 65 64 | 43 74 6c 20 6a 75 73 74 |s Titled|Ctl just|
|00001e60| 20 61 64 64 73 20 61 20 | 63 6f 6e 76 65 6e 69 65 | adds a |convenie|
|00001e70| 6e 74 20 49 4e 49 54 3a | 20 6d 65 74 68 6f 64 20 |nt INIT:| method |
|00001e80| 66 6f 72 20 73 65 74 74 | 69 6e 67 20 75 70 20 61 |for sett|ing up a|
|00001e90| 20 63 6f 6e 74 72 6f 6c | 0d 5c 20 77 69 74 68 20 | control|.\ with |
|00001ea0| 61 20 74 69 74 6c 65 2c | 20 77 68 65 72 65 20 74 |a title,| where t|
|00001eb0| 68 65 20 77 69 64 74 68 | 20 6f 66 20 74 68 65 20 |he width| of the |
|00001ec0| 63 6f 6e 74 72 6f 6c 27 | 73 20 72 65 63 74 20 69 |control'|s rect i|
|00001ed0| 73 20 64 65 74 65 72 6d | 69 6e 65 64 20 62 79 20 |s determ|ined by |
|00001ee0| 77 68 61 74 20 74 68 65 | 0d 5c 20 74 69 74 6c 65 |what the|.\ title|
|00001ef0| 20 69 73 2e 20 20 57 65 | 20 61 73 73 75 6d 65 20 | is.  We| assume |
|00001f00| 74 68 65 20 66 6f 6e 74 | 20 77 69 6c 6c 20 62 65 |the font| will be|
|00001f10| 20 43 68 69 63 61 67 6f | 20 61 6e 64 20 74 68 65 | Chicago| and the|
|00001f20| 20 68 65 69 67 68 74 20 | 6f 66 20 74 68 65 20 63 | height |of the c|
|00001f30| 6f 6e 74 72 6f 6c 0d 5c | 20 69 73 20 32 30 2e 20 |ontrol.\| is 20. |
|00001f40| 20 4f 76 65 72 72 69 64 | 65 20 61 73 20 6e 65 63 | Overrid|e as nec|
|00001f50| 65 73 73 61 72 79 2e 0d | 0d 3a 63 6c 61 73 73 09 |essary..|.:class.|
|00001f60| 54 49 54 4c 45 44 43 54 | 4c 20 20 73 75 70 65 72 |TITLEDCT|L  super|
|00001f70| 7b 20 63 6f 6e 74 72 6f | 6c 20 7d 0d 0d 5c 20 49 |{ contro|l }..\ I|
|00001f80| 4e 49 54 3a 20 28 20 78 | 20 79 20 61 64 64 72 20 |NIT: ( x| y addr |
|00001f90| 6c 65 6e 20 2d 2d 20 29 | 20 20 73 65 74 73 20 75 |len -- )|  sets u|
|00001fa0| 70 20 74 68 65 20 63 6f | 6e 74 72 6f 6c 20 77 69 |p the co|ntrol wi|
|00001fb0| 74 68 20 61 20 74 69 74 | 6c 65 2e 0d 5c 20 78 20 |th a tit|le..\ x |
|00001fc0| 61 6e 64 20 79 20 61 72 | 65 20 74 68 65 20 69 6e |and y ar|e the in|
|00001fd0| 69 74 69 61 6c 20 74 6f | 70 20 6c 65 66 74 20 42 |itial to|p left B|
|00001fe0| 6f 75 6e 64 73 20 76 61 | 6c 75 65 73 20 28 75 73 |ounds va|lues (us|
|00001ff0| 69 6e 67 20 77 68 61 74 | 65 76 65 72 20 6a 75 73 |ing what|ever jus|
|00002000| 74 69 66 69 63 61 74 69 | 6f 6e 0d 5c 20 69 73 20 |tificati|on.\ is |
|00002010| 69 6e 20 65 66 66 65 63 | 74 29 2e 20 20 28 61 64 |in effec|t).  (ad|
|00002020| 64 72 20 6c 65 6e 29 20 | 67 69 76 65 73 20 74 68 |dr len) |gives th|
|00002030| 65 20 74 69 74 6c 65 2e | 0d 0d 3a 6d 20 49 4e 49 |e title.|..:m INI|
|00002040| 54 3a 20 7b 20 78 20 79 | 20 61 64 64 72 20 6c 65 |T: { x y| addr le|
|00002050| 6e 20 5c 20 74 69 74 6c | 65 57 69 64 74 68 20 2d |n \ titl|eWidth -|
|00002060| 2d 20 7d 0d 09 6c 65 6e | 20 33 32 20 6d 69 6e 20 |- }..len| 32 min |
|00002070| 20 2d 3e 20 6c 65 6e 0d | 09 6c 65 6e 20 20 70 75 | -> len.|.len  pu|
|00002080| 74 3a 20 74 69 74 6c 65 | 4c 65 6e 20 20 61 64 64 |t: title|Len  add|
|00002090| 72 20 20 61 64 64 72 3a | 20 74 69 74 6c 65 20 20 |r  addr:| title  |
|000020a0| 6c 65 6e 20 20 63 6d 6f | 76 65 0d 09 61 64 64 72 |len  cmo|ve..addr|
|000020b0| 20 6c 65 6e 20 74 57 69 | 64 74 68 20 20 2d 3e 20 | len tWi|dth  -> |
|000020c0| 74 69 74 6c 65 57 69 64 | 74 68 0d 09 78 20 20 79 |titleWid|th..x  y|
|000020d0| 20 20 78 20 74 69 74 6c | 65 57 69 64 74 68 20 2b |  x titl|eWidth +|
|000020e0| 20 32 30 20 2b 20 20 79 | 20 32 30 20 2b 20 20 73 | 20 +  y| 20 +  s|
|000020f0| 65 74 42 6f 75 6e 64 73 | 3a 20 73 65 6c 66 0d 3b |etBounds|: self.;|
|00002100| 6d 0d 0d 3b 63 6c 61 73 | 73 0d 0d 0d 3a 63 6c 61 |m..;clas|s...:cla|
|00002110| 73 73 09 42 55 54 54 4f | 4e 09 73 75 70 65 72 7b |ss.BUTTO|N.super{|
|00002120| 20 74 69 74 6c 65 64 43 | 74 6c 20 7d 0d 3b 63 6c | titledC|tl }.;cl|
|00002130| 61 73 73 0d 0d 3a 63 6c | 61 73 73 09 43 48 45 43 |ass..:cl|ass.CHEC|
|00002140| 4b 42 4f 58 20 20 73 75 | 70 65 72 7b 20 74 69 74 |KBOX  su|per{ tit|
|00002150| 6c 65 64 43 74 6c 20 7d | 0d 20 20 3a 6d 20 43 4c |ledCtl }|.  :m CL|
|00002160| 41 53 53 49 4e 49 54 3a | 09 63 6c 61 73 73 69 6e |ASSINIT:|.classin|
|00002170| 69 74 3a 20 73 75 70 65 | 72 20 20 20 63 68 65 63 |it: supe|r   chec|
|00002180| 6b 49 44 20 20 70 75 74 | 3a 20 70 72 6f 63 49 44 |kID  put|: procID|
|00002190| 20 20 3b 6d 0d 3b 63 6c | 61 73 73 0d 0d 3a 63 6c |  ;m.;cl|ass..:cl|
|000021a0| 61 73 73 09 52 41 44 49 | 4f 42 55 54 54 4f 4e 09 |ass.RADI|OBUTTON.|
|000021b0| 73 75 70 65 72 7b 20 74 | 69 74 6c 65 64 43 74 6c |super{ t|itledCtl|
|000021c0| 20 7d 0d 20 20 3a 6d 20 | 43 4c 41 53 53 49 4e 49 | }.  :m |CLASSINI|
|000021d0| 54 3a 09 63 6c 61 73 73 | 69 6e 69 74 3a 20 73 75 |T:.class|init: su|
|000021e0| 70 65 72 20 20 72 61 64 | 69 6f 49 44 20 20 70 75 |per  rad|ioID  pu|
|000021f0| 74 3a 20 70 72 6f 63 49 | 44 20 20 3b 6d 0d 3b 63 |t: procI|D  ;m.;c|
|00002200| 6c 61 73 73 0d 0d 0d 0d | 5c 20 56 53 43 52 4f 4c |lass....|\ VSCROL|
|00002210| 4c 20 69 73 20 74 68 65 | 20 63 6c 61 73 73 20 66 |L is the| class f|
|00002220| 6f 72 20 76 65 72 74 69 | 63 61 6c 20 73 63 72 6f |or verti|cal scro|
|00002230| 6c 6c 20 62 61 72 73 2e | 20 20 48 53 43 52 4f 4c |ll bars.|  HSCROL|
|00002240| 4c 20 69 73 20 61 20 73 | 75 62 63 6c 61 73 73 0d |L is a s|ubclass.|
|00002250| 5c 20 74 6f 20 62 65 20 | 75 73 65 64 20 66 6f 72 |\ to be |used for|
|00002260| 20 68 6f 72 69 7a 6f 6e | 74 61 6c 20 73 63 72 6f | horizon|tal scro|
|00002270| 6c 6c 20 62 61 72 73 2e | 0d 0d 5c 20 44 65 66 61 |ll bars.|..\ Defa|
|00002280| 75 6c 74 20 68 61 6e 64 | 6c 65 72 73 20 66 6f 72 |ult hand|lers for|
|00002290| 20 63 6c 69 63 6b 73 20 | 69 6e 20 73 63 72 6f 6c | clicks |in scrol|
|000022a0| 6c 20 62 61 72 20 61 72 | 72 6f 77 73 3a 0d 0d 3a |l bar ar|rows:..:|
|000022b0| 20 4c 4e 55 50 09 67 65 | 74 3a 20 74 68 69 73 43 | LNUP.ge|t: thisC|
|000022c0| 74 6c 20 31 2d 20 20 70 | 75 74 3a 20 74 68 69 73 |tl 1-  p|ut: this|
|000022d0| 43 74 6c 20 20 3b 0d 3a | 20 4c 4e 44 4e 09 67 65 |Ctl  ;.:| LNDN.ge|
|000022e0| 74 3a 20 74 68 69 73 43 | 74 6c 20 31 2b 20 20 70 |t: thisC|tl 1+  p|
|000022f0| 75 74 3a 20 74 68 69 73 | 43 74 6c 20 20 3b 0d 0d |ut: this|Ctl  ;..|
|00002300| 0d 3a 63 6c 61 73 73 09 | 56 53 43 52 4f 4c 4c 20 |.:class.|VSCROLL |
|00002310| 20 73 75 70 65 72 7b 20 | 63 6f 6e 74 72 6f 6c 20 | super{ |control |
|00002320| 7d 0d 72 65 63 6f 72 64 | 0d 7b 09 69 6e 74 09 09 |}.record|.{.int..|
|00002330| 09 4d 49 4e 56 41 4c 0d | 09 69 6e 74 09 09 09 4d |.MINVAL.|.int...M|
|00002340| 41 58 56 41 4c 0d 09 62 | 6f 6f 6c 09 09 48 4f 52 |AXVAL..b|ool..HOR|
|00002350| 49 5a 3f 09 09 5c 20 54 | 72 75 65 20 69 66 20 74 |IZ?..\ T|rue if t|
|00002360| 68 69 73 20 69 73 20 72 | 65 61 6c 6c 79 0d 09 09 |his is r|eally...|
|00002370| 09 09 09 09 09 5c 20 20 | 61 20 68 6f 72 69 7a 6f |.....\  |a horizo|
|00002380| 6e 74 61 6c 20 73 63 72 | 6f 6c 6c 20 62 61 72 2e |ntal scr|oll bar.|
|00002390| 0d 7d 0d 35 09 6f 72 64 | 65 72 65 64 2d 63 6f 6c |.}.5.ord|ered-col|
|000023a0| 09 50 41 52 54 53 0d 35 | 09 78 2d 61 72 72 61 79 |.PARTS.5|.x-array|
|000023b0| 09 09 41 43 54 49 4f 4e | 53 0d 0d 3a 6d 20 41 43 |..ACTION|S..:m AC|
|000023c0| 54 49 4f 4e 53 3a 09 5c | 20 28 20 75 70 20 64 6e |TIONS:.\| ( up dn|
|000023d0| 20 70 67 55 70 20 70 67 | 44 6e 20 74 68 75 6d 62 | pgUp pg|Dn thumb|
|000023e0| 20 35 20 2d 2d 20 29 0d | 09 09 09 5c 20 4c 6f 61 | 5 -- ).|...\ Loa|
|000023f0| 64 73 20 74 68 65 20 61 | 63 74 69 6f 6e 73 20 66 |ds the a|ctions f|
|00002400| 6f 72 20 74 68 65 20 70 | 61 72 74 73 20 6f 66 20 |or the p|arts of |
|00002410| 74 68 65 20 73 63 72 6f | 6c 6c 20 62 61 72 2c 20 |the scro|ll bar, |
|00002420| 66 72 6f 6d 20 0d 09 09 | 09 5c 20 20 74 68 65 20 |from ...|.\  the |
|00002430| 67 69 76 65 6e 20 78 74 | 20 6c 69 73 74 2e 0d 09 |given xt| list...|
|00002440| 70 75 74 3a 20 61 63 74 | 69 6f 6e 73 20 20 20 63 |put: act|ions   c|
|00002450| 6c 65 61 72 3a 20 70 61 | 72 74 73 0d 09 31 32 39 |lear: pa|rts..129|
|00002460| 20 32 33 20 32 32 20 32 | 31 20 32 30 20 20 35 20 | 23 22 2|1 20  5 |
|00002470| 46 4f 52 20 20 61 64 64 | 3a 20 70 61 72 74 73 20 |FOR  add|: parts |
|00002480| 20 4e 45 58 54 20 20 3b | 6d 20 0d 0d 3a 6d 20 45 | NEXT  ;|m ..:m E|
|00002490| 58 45 43 3a 09 5c 20 28 | 20 70 61 72 74 23 20 2d |XEC:.\ (| part# -|
|000024a0| 2d 20 29 20 20 50 65 72 | 66 6f 72 6d 73 20 61 63 |- )  Per|forms ac|
|000024b0| 74 69 6f 6e 20 66 6f 72 | 20 70 61 72 74 20 6e 6f |tion for| part no|
|000024c0| 2e 0d 09 69 6e 64 65 78 | 4f 66 3a 20 70 61 72 74 |...index|Of: part|
|000024d0| 73 20 20 49 46 20 20 65 | 78 65 63 3a 20 61 63 74 |s  IF  e|xec: act|
|000024e0| 69 6f 6e 73 20 20 54 48 | 45 4e 20 20 3b 6d 20 0d |ions  TH|EN  ;m .|
|000024f0| 0d 0d 3a 6d 20 50 55 54 | 3a 0d 09 67 65 74 3a 20 |..:m PUT|:..get: |
|00002500| 6d 61 78 56 61 6c 20 20 | 6d 69 6e 20 20 67 65 74 |maxVal  |min  get|
|00002510| 3a 20 6d 69 6e 56 61 6c | 20 20 6d 61 78 20 20 70 |: minVal|  max  p|
|00002520| 75 74 3a 20 73 75 70 65 | 72 20 20 3b 6d 0d 0d 3a |ut: supe|r  ;m..:|
|00002530| 6d 20 50 55 54 4d 41 58 | 3a 20 20 7b 20 6e 20 2d |m PUTMAX|:  { n -|
|00002540| 2d 20 7d 0d 09 6e 20 20 | 70 75 74 3a 20 6d 61 78 |- }..n  |put: max|
|00002550| 56 61 6c 0d 09 67 65 74 | 3a 20 61 6c 69 76 65 3f |Val..get|: alive?|
|00002560| 20 20 30 45 58 49 54 0d | 09 67 65 74 3a 20 63 74 |  0EXIT.|.get: ct|
|00002570| 6c 48 6e 64 6c 20 20 6e | 20 6d 61 6b 65 69 6e 74 |lHndl  n| makeint|
|00002580| 20 20 63 61 6c 6c 20 53 | 65 74 4d 61 78 43 74 6c |  call S|etMaxCtl|
|00002590| 20 20 3b 6d 0d 0d 3a 6d | 20 50 55 54 4d 49 4e 3a |  ;m..:m| PUTMIN:|
|000025a0| 20 20 7b 20 6e 20 2d 2d | 20 7d 0d 09 6e 20 20 70 |  { n --| }..n  p|
|000025b0| 75 74 3a 20 6d 69 6e 56 | 61 6c 0d 09 67 65 74 3a |ut: minV|al..get:|
|000025c0| 20 61 6c 69 76 65 3f 20 | 20 30 45 58 49 54 0d 09 | alive? | 0EXIT..|
|000025d0| 67 65 74 3a 20 63 74 6c | 48 6e 64 6c 20 20 6e 20 |get: ctl|Hndl  n |
|000025e0| 6d 61 6b 65 69 6e 74 20 | 20 63 61 6c 6c 20 53 65 |makeint | call Se|
|000025f0| 74 4d 69 6e 43 74 6c 20 | 20 3b 6d 0d 0d 3a 6d 20 |tMinCtl | ;m..:m |
|00002600| 50 55 54 52 41 4e 47 45 | 3a 09 5c 20 28 20 6c 6f |PUTRANGE|:.\ ( lo|
|00002610| 20 68 69 20 2d 2d 20 29 | 0d 09 70 75 74 4d 61 78 | hi -- )|..putMax|
|00002620| 3a 20 73 65 6c 66 20 20 | 70 75 74 4d 69 6e 3a 20 |: self  |putMin: |
|00002630| 73 65 6c 66 20 20 3b 6d | 0d 0d 3a 6d 20 49 4e 49 |self  ;m|..:m INI|
|00002640| 54 3a 20 20 7b 20 6c 65 | 66 74 20 74 6f 70 20 6c |T:  { le|ft top l|
|00002650| 65 6e 20 2d 2d 20 7d 09 | 5c 20 66 6f 72 20 63 6f |en -- }.|\ for co|
|00002660| 6e 76 65 6e 69 65 6e 63 | 65 20 61 6e 64 20 62 61 |nvenienc|e and ba|
|00002670| 63 6b 77 61 72 64 20 63 | 6f 6d 70 61 74 69 62 69 |ckward c|ompatibi|
|00002680| 6c 69 74 79 0d 09 6c 65 | 66 74 20 74 6f 70 0d 09 |lity..le|ft top..|
|00002690| 67 65 74 3a 20 68 6f 72 | 69 7a 3f 0d 09 49 46 09 |get: hor|iz?..IF.|
|000026a0| 09 6c 65 66 74 20 6c 65 | 6e 20 2b 20 20 74 6f 70 |.left le|n +  top|
|000026b0| 20 31 36 20 2b 0d 09 45 | 4c 53 45 09 6c 65 66 74 | 16 +..E|LSE.left|
|000026c0| 20 31 36 20 2b 09 74 6f | 70 20 6c 65 6e 20 2b 0d | 16 +.to|p len +.|
|000026d0| 09 54 48 45 4e 0d 09 73 | 65 74 42 6f 75 6e 64 73 |.THEN..s|etBounds|
|000026e0| 3a 20 73 65 6c 66 20 20 | 3b 6d 0d 0d 0d 3a 6d 20 |: self  |;m...:m |
|000026f0| 4e 45 57 3a 0d 09 6e 65 | 77 3a 20 73 75 70 65 72 |NEW:..ne|w: super|
|00002700| 0d 09 67 65 74 3a 20 6d | 69 6e 56 61 6c 20 20 67 |..get: m|inVal  g|
|00002710| 65 74 3a 20 6d 61 78 56 | 61 6c 20 20 70 75 74 52 |et: maxV|al  putR|
|00002720| 61 6e 67 65 3a 20 73 65 | 6c 66 20 20 3b 6d 0d 09 |ange: se|lf  ;m..|
|00002730| 09 09 09 09 09 09 09 09 | 5c 20 73 65 74 20 6d 69 |........|\ set mi|
|00002740| 6e 20 61 6e 64 20 6d 61 | 78 20 69 6e 20 63 74 6c |n and ma|x in ctl|
|00002750| 48 6e 64 6c 0d 0d 3a 6d | 20 43 4c 41 53 53 49 4e |Hndl..:m| CLASSIN|
|00002760| 49 54 3a 0d 09 63 6c 61 | 73 73 69 6e 69 74 3a 20 |IT:..cla|ssinit: |
|00002770| 73 75 70 65 72 0d 09 31 | 36 20 20 70 75 74 3a 20 |super..1|6  put: |
|00002780| 70 72 6f 63 49 44 0d 09 | 58 54 53 7b 20 6c 6e 75 |procID..|XTS{ lnu|
|00002790| 70 20 20 6c 6e 64 6e 20 | 20 6e 75 6c 6c 20 6e 75 |p  lndn | null nu|
|000027a0| 6c 6c 20 6e 75 6c 6c 20 | 7d 20 20 61 63 74 69 6f |ll null |}  actio|
|000027b0| 6e 73 3a 20 73 65 6c 66 | 20 20 3b 6d 0d 0d 3b 63 |ns: self|  ;m..;c|
|000027c0| 6c 61 73 73 0d 0d 0d 3a | 63 6c 61 73 73 09 48 53 |lass...:|class.HS|
|000027d0| 43 52 4f 4c 4c 20 20 73 | 75 70 65 72 7b 20 76 73 |CROLL  s|uper{ vs|
|000027e0| 63 72 6f 6c 6c 20 7d 0d | 20 20 20 20 3a 6d 20 43 |croll }.|    :m C|
|000027f0| 4c 41 53 53 49 4e 49 54 | 3a 09 74 72 75 65 20 70 |LASSINIT|:.true p|
|00002800| 75 74 3a 20 68 6f 72 69 | 7a 3f 20 20 20 63 6c 61 |ut: hori|z?   cla|
|00002810| 73 73 69 6e 69 74 3a 20 | 73 75 70 65 72 20 20 3b |ssinit: |super  ;|
|00002820| 6d 20 0d 3b 63 6c 61 73 | 73 0d 0d 0d 0d 65 6e 64 |m .;clas|s....end|
|00002830| 6c 6f 61 64 0d 0d 0d 0d | 5c 20 54 65 73 74 69 6e |load....|\ Testin|
|00002840| 67 20 2d 20 74 68 69 73 | 20 73 65 74 73 20 75 70 |g - this| sets up|
|00002850| 20 61 20 76 69 65 77 20 | 77 69 74 68 20 61 20 62 | a view |with a b|
|00002860| 75 74 74 6f 6e 20 61 6e | 64 20 73 63 72 6f 6c 6c |utton an|d scroll|
|00002870| 20 62 61 72 3a 0d 0d 76 | 69 65 77 09 56 56 09 09 | bar:..v|iew.VV..|
|00002880| 09 5c 20 4d 61 69 6e 20 | 76 69 65 77 0d 62 75 74 |.\ Main |view.but|
|00002890| 74 6f 6e 09 42 42 09 09 | 09 5c 20 41 20 63 68 69 |ton.BB..|.\ A chi|
|000028a0| 6c 64 20 76 69 65 77 20 | 77 68 69 63 68 20 69 73 |ld view |which is|
|000028b0| 20 61 20 62 75 74 74 6f | 6e 0d 76 73 63 72 6f 6c | a butto|n.vscrol|
|000028c0| 6c 09 56 53 09 09 09 5c | 20 41 6e 6f 74 68 65 72 |l.VS...\| Another|
|000028d0| 20 63 68 69 6c 64 20 76 | 69 65 77 20 77 68 69 63 | child v|iew whic|
|000028e0| 68 20 69 73 20 61 20 76 | 65 72 74 20 73 63 72 6f |h is a v|ert scro|
|000028f0| 6c 6c 20 62 61 72 0d 0d | 0d 34 30 20 34 30 20 33 |ll bar..|.40 40 3|
|00002900| 30 30 20 32 30 30 09 73 | 65 74 42 6f 75 6e 64 73 |00 200.s|etBounds|
|00002910| 3a 20 76 76 0d 0d 31 30 | 20 31 30 20 20 22 20 43 |: vv..10| 10  " C|
|00002920| 6c 69 63 6b 20 68 65 72 | 65 22 09 69 6e 69 74 3a |lick her|e".init:|
|00002930| 20 62 62 0d 0d 70 61 72 | 52 69 67 68 74 20 70 61 | bb..par|Right pa|
|00002940| 72 54 6f 70 20 70 61 72 | 52 69 67 68 74 20 70 61 |rTop par|Right pa|
|00002950| 72 42 6f 74 74 6f 6d 20 | 20 73 65 74 4a 75 73 74 |rBottom | setJust|
|00002960| 3a 20 76 73 0d 2d 32 36 | 20 32 30 20 2d 31 30 20 |: vs.-26| 20 -10 |
|00002970| 2d 31 30 09 73 65 74 42 | 6f 75 6e 64 73 3a 20 76 |-10.setB|ounds: v|
|00002980| 73 0d 0d 0d 3a 20 44 72 | 61 77 69 74 09 64 72 61 |s...: Dr|awit.dra|
|00002990| 77 3a 20 74 65 6d 70 52 | 65 63 74 20 20 3b 09 09 |w: tempR|ect  ;..|
|000029a0| 5c 20 41 20 64 72 61 77 | 20 68 61 6e 64 6c 65 72 |\ A draw| handler|
|000029b0| 20 77 68 69 63 68 20 6a | 75 73 74 20 64 72 61 77 | which j|ust draw|
|000029c0| 73 20 74 68 65 20 76 69 | 65 77 52 65 63 74 0d 0d |s the vi|ewRect..|
|000029d0| 3a 20 44 72 61 77 56 56 | 09 64 72 61 77 3a 20 76 |: DrawVV|.draw: v|
|000029e0| 76 20 20 3b 09 09 09 09 | 5c 20 44 72 61 77 20 68 |v  ;....|\ Draw h|
|000029f0| 61 6e 64 6c 65 72 20 66 | 6f 72 20 66 57 69 6e 64 |andler f|or fWind|
|00002a00| 20 66 6f 72 20 74 65 73 | 74 0d 0d 3a 20 43 6c 69 | for tes|t..: Cli|
|00002a10| 63 6b 65 64 0d 09 6e 6f | 63 6c 69 70 0d 09 2e 22 |cked..no|clip..."|
|00002a20| 20 63 6c 69 63 6b 65 64 | 20 22 20 2e 69 64 3a 20 | clicked| " .id: |
|00002a30| 5b 73 65 6c 66 5d 20 63 | 72 0d 5c 20 4e 6f 77 20 |[self] c|r.\ Now |
|00002a40| 77 65 20 65 78 70 61 6e | 64 20 76 76 20 61 20 62 |we expan|d vv a b|
|00002a50| 69 74 20 74 6f 20 63 68 | 65 63 6b 20 69 66 20 74 |it to ch|eck if t|
|00002a60| 68 65 20 73 63 72 6f 6c | 6c 20 62 61 72 20 6d 6f |he scrol|l bar mo|
|00002a70| 76 65 73 20 61 6e 64 20 | 72 65 73 69 7a 65 73 3a |ves and |resizes:|
|00002a80| 0d 09 67 65 74 42 6f 75 | 6e 64 73 3a 20 76 76 0d |..getBou|nds: vv.|
|00002a90| 09 31 30 20 2b 0d 09 73 | 77 61 70 20 32 30 20 2b |.10 +..s|wap 20 +|
|00002aa0| 20 73 77 61 70 0d 09 73 | 65 74 42 6f 75 6e 64 73 | swap..s|etBounds|
|00002ab0| 3a 20 76 76 20 20 6d 6f | 76 65 64 3a 20 76 76 20 |: vv  mo|ved: vv |
|00002ac0| 20 3b 0d 0d 0d 3a 20 63 | 6f 6e 74 65 6e 74 43 6c | ;...: c|ontentCl|
|00002ad0| 69 63 6b 09 09 09 5c 20 | 4e 65 77 20 63 6f 6e 74 |ick...\ |New cont|
|00002ae0| 65 6e 74 20 63 6c 69 63 | 6b 20 68 61 6e 64 6c 65 |ent clic|k handle|
|00002af0| 72 20 66 6f 72 20 66 57 | 69 6e 64 0d 09 09 09 63 |r for fW|ind....c|
|00002b00| 6c 69 63 6b 3a 20 76 76 | 20 20 64 72 6f 70 20 20 |lick: vv|  drop  |
|00002b10| 3b 0d 09 09 09 0d 27 20 | 64 72 61 77 69 74 09 73 |;.....' |drawit.s|
|00002b20| 65 74 44 72 61 77 3a 20 | 76 76 0d 0d 27 20 63 6c |etDraw: |vv..' cl|
|00002b30| 69 63 6b 65 64 09 64 75 | 70 20 73 65 74 63 6c 69 |icked.du|p setcli|
|00002b40| 63 6b 3a 20 76 76 20 20 | 73 65 74 63 6c 69 63 6b |ck: vv  |setclick|
|00002b50| 3a 20 62 62 0d 0d 3a 20 | 47 4f 0d 09 63 6c 73 0d |: bb..: |GO..cls.|
|00002b60| 09 78 74 73 7b 20 6e 75 | 6c 6c 20 6e 75 6c 6c 20 |.xts{ nu|ll null |
|00002b70| 64 72 61 77 56 56 20 63 | 6f 6e 74 65 6e 74 43 6c |drawVV c|ontentCl|
|00002b80| 69 63 6b 20 7d 20 20 61 | 63 74 69 6f 6e 73 3a 20 |ick }  a|ctions: |
|00002b90| 66 57 69 6e 64 0d 09 62 | 62 20 61 64 64 76 69 65 |fWind..b|b addvie|
|00002ba0| 77 3a 20 76 76 20 20 76 | 73 20 61 64 64 76 69 65 |w: vv  v|s addvie|
|00002bb0| 77 3a 20 76 76 0d 09 30 | 20 35 30 20 70 75 74 52 |w: vv..0| 50 putR|
|00002bc0| 61 6e 67 65 3a 20 76 73 | 0d 09 66 57 69 6e 64 20 |ange: vs|..fWind |
|00002bd0| 20 73 65 74 57 69 6e 64 | 6f 77 3a 20 76 76 09 5c | setWind|ow: vv.\|
|00002be0| 20 4e 6f 72 6d 61 6c 6c | 79 20 64 6f 6e 65 20 61 | Normall|y done a|
|00002bf0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 66 72 6f |utomatic|ally fro|
|00002c00| 6d 20 4e 45 57 3a 20 69 | 6e 20 57 69 6e 64 6f 77 |m NEW: i|n Window|
|00002c10| 2b 0d 09 6e 65 77 3a 20 | 76 76 09 09 09 09 09 5c |+..new: |vv.....\|
|00002c20| 20 44 69 74 74 6f 0d 09 | 64 72 61 77 3a 20 76 76 | Ditto..|draw: vv|
|00002c30| 20 20 3b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |  ;.....|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 3b |.......<|...<...;|
|00002c90| 00 00 01 01 0f 41 70 70 | 6c 65 53 68 61 72 65 20 |.....App|leShare |
|00002ca0| 50 72 65 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |Prep....|........|
|00002cb0| 03 43 74 6c 02 00 00 00 | 50 61 72 74 53 49 54 78 |.Ctl....|PartSITx|
|00002cc0| 00 00 00 00 00 00 00 00 | 00 01 83 dd 00 00 00 00 |........|........|
|00002cd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 ab 06 23 60 00 00 | 00 00 00 00 01 77 00 00 |....#`..|.....w..|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 28 25 00 00 00 |........|...(%...|
|00002d10| 01 01 0f 4d 61 63 41 43 | 6c 6f 63 6b 2e 50 72 65 |...MacAC|lock.Pre|
|00002d20| 66 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |fs......|........|
|00002d30| 00 00 00 00 00 26 25 00 | 00 00 01 01 17 4d 75 6c |.....&%.|.....Mul|
|00002d40| 74 69 4d 61 73 74 65 72 | 20 50 72 65 66 65 72 65 |tiMaster| Prefere|
|00002d50| 6e 63 65 73 00 00 00 00 | 00 00 00 00 00 00 00 2c |nces....|.......,|
|00002d60| 25 00 00 00 01 01 14 53 | 75 70 65 72 20 42 6f 6f |%......S|uper Boo|
|00002d70| 6d 65 72 61 6e 67 20 48 | 65 6c 70 00 00 00 00 00 |merang H|elp.....|
|00002d80| 00 00 00 38 00 00 00 00 | 00 00 16 1c 00 00 10 9a |...8....|........|
|00002d90| 00 00 24 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |..$p....|........|
|00002da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 23 13 |........|......#.|
|00002db0| 00 00 23 13 00 00 00 00 | 00 00 00 00 00 00 01 00 |..#.....|........|
|00002dc0| 00 00 01 3c 00 00 00 3c | 00 00 00 3b 00 32 ac c4 |...<...<|...;.2..|
|00002dd0| 07 5a 00 00 00 1c 00 32 | 00 00 4d 49 46 4f 00 00 |.Z.....2|..MIFO..|
|00002de0| 00 0a 00 80 00 00 00 00 | 00 00 00 32 b3 98 08 4d |........|...2...M|
|00002df0| 69 73 63 49 6e 66 6f 00 | 00 00 00 00 00 00 00 00 |iscInfo.|........|
+--------+-------------------------+-------------------------+--------+--------+